10 POKE53281,0:POKE53280,0:PRINT"[147]"
20 A=PEEK(4096):IFA<>169THENPRINT"[205]UST [204]OAD & [210]UN 'B.LASER STORM' [198]IRST!":END
30 PRINTTAB(11)"[204]ASER [211]TORM [213]LTRAGEM[158]"
40 PRINTTAB(10)"[213]NLIMITED [204]IVES? ([217]/[206])"
50 GETA$:IFA$=""THEN50
60 IFA$="Y"THENPOKE6442,173:GOTO90
70 IFA$="N"THENPOKE6442,206:GOTO90
80 GOTO50
90 PRINTTAB(9)"[213]NLIMITED [211]HIELDS? ([217]/[206])"
100 GETA$:IFA$=""THEN100
110 IFA$="Y"THENPOKE6223,173:GOTO140
120 IFA$="N"THENPOKE6223,206:GOTO140
130 GOTO100
140 SYS4096:POKE53371,0
150 U=828:FORI=0TO21:POKEU+I,8+I:NEXT
160 IFDV<8ORDV>29ORDV=8THEN180
170 A=PEEK(U):B=PEEK(U+DV-8):POKEU,B:POKEU+DV-8,A
180 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
190 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN210
200 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN220
210 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
220 Q$=CHR$(34):POKE646,0:PRINT"[147]":POKE53272,23
230 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
240 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END